# -*- mode: snippet -*-
# name: esticon Contrasts For Lm, Glm, Lme, And Geeglm Objects
# key: esticon
# --
library(doBy)
res. <- esticon(obj        = ,
                cm         = rbind(
                    "linear 1" = c(0, 0, 0, 0, 0, 0), 
                    "linear 2" = c(0, 0, 0, 0, 0, 0)),
                ## beta0   = ,
                conf.int   = TRUE, level = 0.95,
                joint.test = TRUE
                )
